home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / addrflcd.arc / ADDRFLCD.BAS next >
Encoding:
BASIC Source File  |  1986-05-19  |  3.6 KB  |  58 lines
  1. 10 KEY OFF:CLS
  2. 20 '                PC^3 Software Library Program  ADDRFLCD
  3. 30 '                    Michael Csontos  7-30-82
  4. 40 PRINT " This program generates form filecards (3x5 index cards) for the collection and"
  5. 50 PRINT " filing of club membership or other name and address information.  They look"
  6. 60 PRINT " something like the following.":PRINT
  7. 70 PRINT
  8. 80 PRINT "              Name:______________________________________________
  9. 90 PRINT "               as you want it on address labels
  10. 100 PRINT "             Street Address______________________________________
  11. 110 PRINT "               for mailing purposes
  12. 120 PRINT "             City___________________________State________ZIP_____
  13. 130 PRINT
  14. 140 PRINT "             Company_______________________Mail Code_____________
  15. 150 PRINT "               may help in distributing meeting notices
  16. 160 PRINT "             Phone:Home___________________Work___________________
  17. 170 PRINT
  18. 180 PRINT "             Club Office_________________________________________
  19. 190 PRINT "               office or duties assumed during the current year
  20. 200 PRINT
  21. 210 PRINT " The program is set up for an Epson MX-80 with Graphtrack. Other printers may
  22. 220 PRINT " require modification of the printer commands.  The output is intended for
  23. 230 PRINT "continuous sprocket feed form index cards (one across) such as are available
  24. 240 PRINT "from Misco Inc., Box 399, Holmdel, NJ 07733, 800/631-2227 (Cat. # 8871)
  25. 250 PRINT
  26. 260 INPUT "How many cards do you want in this run"; NUMBER
  27. 270 IF NUMBER<1 OR INT(NUMBER)<>NUMBER THEN PRINT "Please enter an integer number from 1 to the number of blank cards you have":GOTO 260
  28. 280 INPUT "Is the printer ready to print the cards";Q$
  29. 290 IF Q$="y" OR Q$="Y" THEN GOTO 320
  30. 300 IF Q$="n" OR Q$="N" THEN GOTO 280
  31. 310 PRINT "Please enter Y, y, N, or n":GOTO 280
  32. 320 PRINTED=NUMBER
  33. 330 LPRINT CHR$(27)CHR$(64);'                           reset printer
  34. 340 LPRINT CHR$(27)CHR$(67)CHR$(0)CHR$(3);'             3 inch form
  35. 350 LPRINT CHR$(15)CHR$(27)CHR$(65)CHR$(10);'           10/72 inch lines
  36. 360 IF NUMBER>0 THEN GOSUB 390  ELSE GOTO 550
  37. 370 NUMBER=NUMBER-1
  38. 380 GOTO 360
  39. 390 LPRINT CHR$(27)CHR$(69) "Name:" CHR$(27)CHR$(45)CHR$(1) STRING$(40,"_") CHR$(27)CHR$(45)CHR$(0)'
  40. 400 LPRINT CHR$(27)CHR$(70)CHR$(27)CHR$(83)CHR$(0) "    AS YOU WANT IT ON ADDRESS LABLES" CHR$(27)CHR$(72)
  41. 410 LPRINT
  42. 420 LPRINT CHR$(27)CHR$(69) "Street Address:" CHR$(27)CHR$(45)CHR$(1) STRING$(30,"_") CHR$(27)CHR$(45)CHR$(0)
  43. 430 LPRINT CHR$(27)CHR$(70)CHR$(27)CHR$(83)CHR$(0) "    FOR MAILING PURPOSES" CHR$(27)CHR$(72)
  44. 440 LPRINT
  45. 450 LPRINT CHR$(27)CHR$(69) "City:" CHR$(27)CHR$(45)CHR$(1) STRING$(17,"_") CHR$(27)CHR$(45)CHR$(0) "State:" CHR$(27)CHR$(45)CHR$(1) STRING$(5,"_") CHR$(27)CHR$(45)CHR$(0) "ZIP:" CHR$(27)CHR$(45)CHR$(1) STRING$(8,"_") CHR$(27)CHR$(45)CHR$(0)
  46. 460 LPRINT :LPRINT
  47. 470 LPRINT CHR$(27)CHR$(69) "Company:" CHR$(27)CHR$(45)CHR$(1) STRING$(13,"_") CHR$(27)CHR$(45)CHR$(0) "Mail Code:" CHR$(27)CHR$(45)CHR$(1) STRING$(14,"_") CHR$(27)CHR$(45)CHR$(0)
  48. 480 LPRINT CHR$(27)CHR$(70)CHR$(27)CHR$(83)CHR$(0) "    MAY HELP IN DISTRIBUTING MEETING NOTICES" CHR$(27)CHR$(72)
  49. 490 LPRINT
  50. 500 LPRINT CHR$(27)CHR$(69) "Phone:Home:" CHR$(27)CHR$(45)CHR$(1) STRING$(14,"_") CHR$(27)CHR$(45)CHR$(0) "Work:" CHR$(27)CHR$(45)CHR$(1) STRING$(15,"_") CHR$(27)CHR$(45)CHR$(0)
  51. 510 LPRINT :LPRINT
  52. 520 LPRINT "Club Office:" CHR$(27)CHR$(45)CHR$(1) STRING$(33,"_") CHR$(27)CHR$(45)CHR$(0)'
  53. 530 LPRINT CHR$(27)CHR$(70)CHR$(27)CHR$(83)CHR$(0) "    OFFICE OR DUTIES ASSUMED BY YOU DURING THE CURRENT YEAR" CHR$(27)CHR$(72)
  54. 540 LPRINT CHR$(140);:RETURN
  55. 550 PRINT PRINTED " cards completed.":PRINT:PRINT:KEY ON
  56. 560 END
  57. 570 ' SAVE"addrflcd
  58.